1) AL.PAL[PNT,HE] and 2) AL.PAL[TMP,MSM]	9-29-79 16:54	pages 2,2

**** File 1) AL.PAL[PNT,HE], Page 2 line 6
1)	;These need only be looked at during the first pass:
1)	    .IF1
1)	        .INSRT ALHEAD.PAL[AL,HE]
1)	        .INSRT K1DEF.PAL[11,SYS]
**** File 2) AL.PAL[TMP,MSM], Page 2 line 5
2)	.IFNDF CPOINTY
2)	CPOINTY==0		; unless otherwise stated this is not a POINTY compilation
2)	.ENDC
2)	;These need only be looked at during the first pass:
2)	    .IF1
2)	        .INSRT ALHEAD.PAL[TMP,MSM]
2)	        .INSRT K1DEF.PAL[11,SYS]
***************


**** File 1) AL.PAL[PNT,HE], Page 2 line 45
1)	.INSRT INTERP.PAL[AL,HE]
1)				; interpreter for pointy routines
**** File 2) AL.PAL[TMP,MSM], Page 2 line 47
2)	.INSRT INTERP.PAL[TMP,MSM]
2)				; interpreter for pointy routines
***************


**** File 1) AL.PAL[PNT,HE], Page 2 line 50
1)	.INSRT PINTRP.PAL[PNT,HE]
1)				; display routines on the  VT05
**** File 2) AL.PAL[TMP,MSM], Page 2 line 52
2)	.INSRT PINTRP.PAL[TMP,MSM]
2)				; display routines on the  VT05
***************


**** File 1) AL.PAL[PNT,HE], Page 2 line 55
1)	.INSRT ALDISP.PAL[PNT,HE]
1)				; routines talking to the 10
**** File 2) AL.PAL[TMP,MSM], Page 2 line 57
2)	.INSRT ALDISP.PAL[TMP,MSM]
2)				; routines talking to the 10
***************


**** File 1) AL.PAL[PNT,HE], Page 2 line 60
1)	.INSRT TALK10.PAL[PNT,HE]
1)				;The floating I/O
**** File 2) AL.PAL[TMP,MSM], Page 2 line 62
2)	.INSRT TALK10.PAL[TMP,MSM]
  1) AL.PAL[PNT,HE] and 2) AL.PAL[TMP,MSM]	9-29-79 16:54	pages 2,2

2)				;The floating I/O
***************


**** File 1) AL.PAL[PNT,HE], Page 2 line 80
1)	CODE
**** File 2) AL.PAL[TMP,MSM], Page 2 line 81
2)	ALLIVE:: .WORD 0	;1 when AL is running, 0 otherwise
2)	CODE
***************


**** File 1) AL.PAL[PNT,HE], Page 3 line 18
1)	1$:	TST LINTARM	;For debugging new systems - if the arm code hasn't been
1)		BEQ 4$		; loaded then don't try to initialize the arm
1)		MOV #DVBKSZ,R0	;Get a device block
1)		JSR PC,GTFREE
1)		MOV R0,R1
1)		MOV R0,-(SP)	;Save address of device block so we can free it
1)		JSR PC,@LINTARM	;Initialize the arm code
1)		TST R0		;All well?
1)		BEQ 3$		;Yes
1)		CMP R0,#10	;Is it the reference supply?
1)		BNE 2$
1)		ALERR STMES3	; yup - complain about it.
1)		BR 3$
1)	2$:	CMP R0,#7	;Is it the power supply?
1)		BNE 22$
1)		ALERR STMES4	; yup - complain about it.
1)		BR 3$
1)	22$:	ALERR STMES2	;Just make a general complaint.
1)	3$:	MOV (SP)+,R0	;R0 ← LOC[device block]
1)		JSR PC,RLFREE	;Release it
1)		CMP ARMVER,#VERSION	;Arm compatible?
1)		BEQ 4$		;Yes
1)		ALERR STMES1	;No
1)	4$:
1)		;set up the first interpreter
1)		JSR PC,INTINIT		;Initialize the interpreter events
1)	.IFNZ CPOINTY
1)		CLR ALDONE
1)		JSR PC,UPDINIT		;Initialize the updating
1)	.ENDC
1)		MOV #ISBS,R0		;R0 ← Size (in words) of an interpreter status block
**** File 2) AL.PAL[TMP,MSM], Page 3 line 18
2)	1$:	JSR PC,INIARM	;initialize the arm
2)					;set up the first interpreter
2)		JSR PC,INTINIT		;Initialize the interpreter events
  1) AL.PAL[PNT,HE] and 2) AL.PAL[TMP,MSM]	9-29-79 16:54	pages 3,3

2)		MOV #ISBS,R0		;R0 ← Size (in words) of an interpreter status block
***************


**** File 1) AL.PAL[PNT,HE], Page 3 line 68
1)		mov r1,curnam
1)		SCHEDU R2,#INTERP,#USRDM,#2 ;Cause the new process to be started, suspended
1)		JSR PC,PNTINIT
1)		EVWAIT 		;Wait for the return signal
1)		BCC  5$		;All well?
1)		ALERR TSTMES	;No
1)	5$:	EVWAIT CSLEVT	;Grab the console
1)		MOV #ENDMES,R0	;Print ALL DONE message
**** File 2) AL.PAL[TMP,MSM], Page 3 line 41
2)		SCHEDU R2,#INTERP,#USRDM,#2 ;Cause the new process to be started, suspended
2)		MOV #1,ALLIVE		;Let rest of world know we are alive
2)		TST SAILID		;Do we need to talk to 10?
2)		BEQ 42$		;No, no need to start up POINTY
2)		JSR PC,UPDINIT		;Initialize the updating
2)		JSR PC,PNTINIT	;Yes, go initialize POINTY
2)	42$:	EVWAIT 		;Wait for the return signal
2)		BCC  5$		;All well?
2)		ALERR TSTMES	;No
2)	5$:	CLR ALLIVE	;done with the AL program
2)		SLEEP #1000.	;give a chance for all the other jobs to die
2)		EVWAIT CSLEVT	;Grab the console
2)		MOV #ENDMES,R0	;Print ALL DONE message
***************


**** File 1) AL.PAL[PNT,HE], Page 3 line 78
1)		MOV #1,ALDONE	;done with the AL program
1)		DISMIS		;Go away
1)	DATA
1)	ALDONE:: 0		;check if al is done
1)	PNTMES:: ASCIE </CAN'T CONTINUE/>
**** File 2) AL.PAL[TMP,MSM], Page 3 line 56
2)		DISMIS		;Go away
2)	INIARM:	TST LINTARM	;For debugging new systems - if the arm code hasn't been
2)		BEQ 4$		; loaded then don't try to initialize the arm
2)		MOV #DVBKSZ,R0	;Get a device block
2)		JSR PC,GTFREE
2)		MOV R0,R1
2)		MOV R0,-(SP)	;Save address of device block so we can free it
2)		JSR PC,@LINTARM	;Initialize the arm code
2)		TST R0		;All well?
2)		BEQ 3$		;Yes
2)		CMP R0,#10	;Is it the reference supply?
  1) AL.PAL[PNT,HE] and 2) AL.PAL[TMP,MSM]	9-29-79 16:54	pages 3,3

2)		BNE 2$
2)		ALERR STMES3	; yup - complain about it.
2)		BR 3$
2)	2$:	CMP R0,#7	;Is it the power supply?
2)		BNE 22$
2)		ALERR STMES4	; yup - complain about it.
2)		BR 3$
2)	22$:	ALERR STMES2	;Just make a general complaint.
2)	3$:	MOV (SP)+,R0	;R0 ← LOC[device block]
2)		JSR PC,RLFREE	;Release it
2)		CMP ARMVER,#VERSION	;Arm compatible?
2)		BEQ 4$		;Yes
2)		ALERR STMES1	;No
2)	4$:	RTS PC
2)	DATA
2)	PNTMES:: ASCIE </CAN'T CONTINUE/>
***************


**** File 1) AL.PAL[PNT,HE], Page 3 line 97
1)		PUTLOC LGETVAL, GETVAL
**** File 2) AL.PAL[TMP,MSM], Page 3 line 98
2)		PUTLOC SAILID,	CPOINTY
2)		PUTLOC LGETVAL, GETVAL
***************